Spawn Figure Collection/spawn collection cd.iso/setup/data1.cab/Program_Executable_Files/Collection.dir/00012_Group Script.ls

Text File | 1998-01-19 | 534 b | 28 lines

property pprotect, pgroup, pcheckbox, pcheck, pbitmap, pcomment

on birth me
  set pflag to EMPTY
  set pbitmap to EMPTY
  set pcomment to EMPTY
  return me
end

on setgroup me, flag, bitmap, comment
  set pprotect to char 1 of flag
  set pgroup to char 2 of flag
  set pcheckbox to char 3 of flag
  set pcheck to char 4 of flag
  set pbitmap to bitmap
  set pcomment to comment
end

on togglecheck me
  if pcheckbox = "1" then
    if pcheck = "1" then
      set pcheck to "0"
    else
      set pcheck to "1"
    end if
  end if
end